<?xml version="1.0"?>

<st-source>
<time-stamp>From VisualWorks® NonCommercial, 7.6 of March 3, 2008 on March 30, 2009 at 8:14:04 pm</time-stamp>


<class>
<name>SupplierOutstandingInvoicesDialog</name>
<environment>SupplyChain</environment>
<super>UI.SimpleDialog</super>
<private>false</private>
<indexed-type>none</indexed-type>
<inst-vars>invoiceList model </inst-vars>
<class-inst-vars></class-inst-vars>
<imports></imports>
<category></category>
<attributes>
<package>SupplyChain</package>
</attributes>
</class>

<!-- -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   -->


<methods>
<class-id>SupplyChain.SupplierOutstandingInvoicesDialog class</class-id> <category>interface specs</category>

<body package="SupplyChain" selector="windowSpec">windowSpec
	"Tools.UIPainter new openOnClass: self andSelector: #windowSpec"

	&lt;resource: #canvas&gt;
	^#(#{UI.FullSpec} 
		#window: 
		#(#{UI.WindowSpec} 
			#label: 'Outstanding Invoices' 
			#bounds: #(#{Graphics.Rectangle} 640 512 881 794 ) ) 
		#component: 
		#(#{UI.SpecCollection} 
			#collection: #(
				#(#{UI.LabelSpec} 
					#layout: #(#{Core.Point} 3 260 ) 
					#name: #Label1 
					#label: 'Supplier GUI' ) 
				#(#{UI.SequenceViewSpec} 
					#layout: #(#{Graphics.Rectangle} 36 35 203 198 ) 
					#name: #invoiceList 
					#model: #invoiceList 
					#useModifierKeys: true 
					#selectionType: #highlight ) 
				#(#{UI.LabelSpec} 
					#layout: #(#{Core.Point} 36 12 ) 
					#name: #outstandingInvoice 
					#label: 'Outstanding Invoices' ) 
				#(#{UI.ActionButtonSpec} 
					#layout: #(#{Graphics.Rectangle} 28 220 109 243 ) 
					#name: #fillInvoice 
					#model: #fillInvoice 
					#label: 'Fill Invoice' 
					#defaultable: true ) 
				#(#{UI.ActionButtonSpec} 
					#layout: #(#{Graphics.Rectangle} 131 220 212 243 ) 
					#name: #done 
					#model: #accept 
					#label: 'Done' 
					#defaultable: true ) ) ) )</body>
</methods>

<methods>
<class-id>SupplyChain.SupplierOutstandingInvoicesDialog class</class-id> <category>instance creation</category>

<body package="SupplyChain" selector="new">new
	^super new initialize</body>
</methods>

<!-- -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   -->


<comment>
<class-id>SupplyChain.SupplierOutstandingInvoicesDialog</class-id>
<body>model: aModel

	model:= aModel.
	^self</body>
</comment>

<methods>
<class-id>SupplyChain.SupplierOutstandingInvoicesDialog</class-id> <category>aspects</category>

<body package="SupplyChain" selector="invoiceList">invoiceList
	"This method was generated by UIDefiner.  Any edits made here
	may be lost whenever methods are automatically defined.  The
	initialization provided below may have been preempted by an
	initialize method."

	^invoiceList isNil
		ifTrue:
			[invoiceList := SelectionInList new]
		ifFalse:
			[invoiceList]</body>
</methods>

<methods>
<class-id>SupplyChain.SupplierOutstandingInvoicesDialog</class-id> <category>accessing</category>

<body package="SupplyChain" selector="model">model

	^model</body>
</methods>

<methods>
<class-id>SupplyChain.SupplierOutstandingInvoicesDialog</class-id> <category>actions</category>

<body package="SupplyChain" selector="fillInvoice">fillInvoice

	"This stub method was generated by UIDefiner"

	^self</body>
</methods>

<methods>
<class-id>SupplyChain.SupplierOutstandingInvoicesDialog</class-id> <category>initialize-release</category>

<body package="SupplyChain" selector="initialize">initialize
	"Initialize a newly created instance. This method must answer the receiver."

	super initialize.
	
	   "now we set up the list box for inventory.  We set the model of the list box to be a selectable item"
    
    invoiceList:= SelectionInList new.
	" *** Replace this comment with the appropriate initialization code *** "
	^self</body>
</methods>

</st-source>
